Dashboard

Row

Total Coronavirus Cases in Egypt

576

Total Coronavirus Deaths in Egypt

36

Total Coronavirus Recovered Cases in Egypt

121

Row

Deaths/Discharged : 36 ( 22.9 % ), Recovered/Discharged : 121 ( 77.1 % )

Cloded Cases (Cases which had an outcome): 157

Currently Infected Patients

Active Cases: 419

Row1

Distibution of Cases

Row2

Confirmed Cases per day

Deaths per day

Recovered Cases per day

Row3

Total Confirmed Cases

Total Deaths

Total Recovered


  1. https://github.com/Sherif-Embarak/

---
title: "Covid-19 in Egypt"
author:
  - Sherif Embarak^[https://github.com/Sherif-Embarak/]
output:
  flexdashboard::flex_dashboard:
    theme: lumen
    social: menu
    source: embed
    vertical_layout: scroll
    orientation: rows
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
rm(list=ls(all=TRUE))
options(stringsAsFactors = FALSE)
library(ggplot2)
library(plotly)
library(flexdashboard)
library(DT)
library(plotly)
library(knitr)
library(lubridate)
library(crosstalk)

setwd("D:/work/git corona/")
df <- read.csv("eg_covid.csv")
df$Day <- mdy(df$Day)
df$Day <- paste(day(df$Day) , months.Date(df$Day) )
df$Curfew <- as.character(df$Curfew)
df <- df[,1:8]
total_cases <- df$Total.Cases[nrow(df)]
total_deaths <- df$Total.Deaths[nrow(df)]
total_recovered <- df$Total.Recovered[nrow(df)]
closed <- total_deaths+total_recovered
active <- total_cases - closed
library(crosstalk)
hk <- highlight_key(df)

chart1 <-ggplotly(ggplot(hk, aes(x=Day, y=New.Cases, fill=Curfew)) + 
  geom_bar(stat = "identity")+scale_fill_brewer(palette="Paired")+
  theme(axis.text.x = element_text(angle = 70, hjust = 1))) %>%
       highlight() 

chart2 <-ggplotly(ggplot(hk, aes(x=Day, y=New.Deaths, fill=Curfew)) + 
  geom_bar(stat = "identity")+scale_fill_brewer(palette="Paired")+
  theme(axis.text.x = element_text(angle = 70, hjust = 1))) %>%
       highlight() 
chart3 <-ggplotly(ggplot(hk, aes(x=Day, y=New.Recovered, fill=Curfew)) + 
  geom_bar(stat = "identity")+scale_fill_brewer(palette="Paired")+
  theme(axis.text.x = element_text(angle = 70, hjust = 1))) %>%
       highlight() 

chart4 <- ggplotly(ggplot(data=hk, aes(x=Day, y=Total.Cases, group=1))+
 geom_line(color="#FF9900", size=1)+theme(axis.text.x = element_text(angle = 70, hjust = 1))+
  geom_point(color="#FF9900"))

chart5 <- ggplotly(ggplot(data=hk, aes(x=Day, y=Total.Deaths, group=1))+
 geom_line(color="#00DDDD", size=1)+theme(axis.text.x = element_text(angle = 70, hjust = 1))+
  geom_point(color="#00DDDD"))

chart6 <- ggplotly(ggplot(data=hk, aes(x=Day, y=Total.Recovered, group=1))+
 geom_line(color="#33CCFF", size=1)+theme(axis.text.x = element_text(angle = 70, hjust = 1))+
  geom_point(color="#33CCFF"))
```

Dashboard
=======================================================================

Row
-----------------------------------------------------------------------

### Total Coronavirus Cases in Egypt

```{r, echo=FALSE}
valueBox(total_cases, icon = "fa-area-chart")
```

### Total Coronavirus Deaths in Egypt 

```{r, echo=FALSE}
valueBox(total_deaths, icon = "fa-area-chart" , color="warning")
```

### Total Coronavirus Recovered Cases in Egypt

```{r, echo=FALSE}
valueBox(total_recovered, icon = "fa-area-chart" , color = "#00DDDD")
```

Row
-----------------------------------------------------------------------

### ``r paste("Deaths/Discharged :",   total_deaths, "(", round((total_deaths/closed)*100,1),"% ),","               ",paste("Recovered/Discharged :",   total_recovered, "(", round((total_recovered/closed)*100,1),"% )"))``

```{r, echo=FALSE}
valueBox(paste("Cloded Cases (Cases which had an outcome): ",closed))
```

### Currently Infected Patients

```{r, echo=FALSE}
valueBox(paste("Active Cases: ",active))
```

Row1{data-width=20}
-------------------------------------
    
### Distibution of Cases
    
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
DT::datatable(hk,options = list(pageLength = 50))
```
   
Row2
-------------------------------------
    
### Confirmed Cases per day
    
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart1
```
    
### Deaths per day

```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart2
```

### Recovered Cases per day

```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart3
```

Row3
-------------------------------------
    
### Total Confirmed Cases
    
```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart4
```
    
### Total Deaths

```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart5
```

### Total Recovered

```{r, echo=FALSE, warning=FALSE,message=FALSE,results='asis',fig.show='asis'}
chart6
```